home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PCTV3N5 / VBWAVE.ZIP / MCIDEMO.GBL < prev    next >
Text File  |  1992-10-12  |  4KB  |  112 lines
  1. '============================================================================'
  2. '                                                                            '
  3. ' Visual Basic global constant file.  This file can be loaded into the       '
  4. ' global module.                                                             '
  5. '                                                                            '
  6. ' Some constants are commented out because they have duplicates (for         '
  7. ' example, NONE appears in several places).                                  '
  8. '                                                                            '
  9. '============================================================================'
  10.  
  11. '========='
  12. '         '
  13. ' General '
  14. '         '
  15. '========='
  16.  
  17. ' Booleans
  18. Global Const TRUE = -1
  19. Global Const FALSE = 0
  20.  
  21. '====================='
  22. '                     '
  23. ' Function parameters '
  24. '                     '
  25. '====================='
  26.  
  27. Declare Sub MessageBeep Lib "User" (ByVal wType As Integer)
  28.  
  29. ' MsgBox parameters
  30. Global Const MB_OK = 0                 ' OK button only
  31. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  32. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  33. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  34. Global Const MB_YESNO = 4              ' Yes and No buttons
  35. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  36.  
  37. Global Const MB_ICONSTOP = 16          ' Critical message
  38. Global Const MB_ICONQUESTION = 32      ' Warning query
  39. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  40. Global Const MB_ICONINFORMATION = 64   ' Information message
  41.  
  42. Global Const MB_DEFBUTTON1 = 0         ' First button is default
  43. Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  44. Global Const MB_DEFBUTTON3 = 512       ' Third button is default
  45.  
  46. ' MsgBox return values
  47. Global Const IDOK = 1                  ' OK button pressed
  48. Global Const IDCANCEL = 2              ' Cancel button pressed
  49. Global Const IDABORT = 3               ' Abort button pressed
  50. Global Const IDRETRY = 4               ' Retry button pressed
  51. Global Const IDIGNORE = 5              ' Ignore button pressed
  52. Global Const IDYES = 6                 ' Yes button pressed
  53. Global Const IDNO = 7                  ' No button pressed
  54.  
  55.  
  56. '-----------------------------------
  57. 'Common Dialog Control
  58. '-----------------------------------
  59. 'Action Property
  60. Global Const DLG_FILE_OPEN = 1
  61. Global Const DLG_FILE_SAVE = 2
  62.  
  63. 'File Open/Save Dialog Flags
  64. Global Const OFN_READONLY = &H1&
  65. Global Const OFN_OVERWRITEPROMPT = &H2&
  66. Global Const OFN_HIDEREADONLY = &H4&
  67. Global Const OFN_NOCHANGEDIR = &H8&
  68. Global Const OFN_SHOWHELP = &H10&
  69. Global Const OFN_NOVALIDATE = &H100&
  70. Global Const OFN_ALLOWMULTISELECT = &H200&
  71. Global Const OFN_EXTENTIONDIFFERENT = &H400&
  72. Global Const OFN_PATHMUSTEXIST = &H800&
  73. Global Const OFN_FILEMUSTEXIST = &H1000&
  74. Global Const OFN_CREATEPROMPT = &H2000&
  75. Global Const OFN_SHAREAWARE = &H4000&
  76. Global Const OFN_NOREADONLYRETURN = &H8000&
  77.  
  78. '---------------------------------------
  79. 'MCI Control (Multimedia)
  80. '---------------------------------------
  81. 'Mode Property
  82. Global Const MCI_MODE_NOT_OPEN = 524
  83. Global Const MCI_MODE_STOP = 525
  84. Global Const MCI_MODE_PLAY = 526
  85. Global Const MCI_MODE_RECORD = 527
  86. Global Const MCI_MODE_SEEK = 528
  87. Global Const MCI_MODE_PAUSE = 529
  88. Global Const MCI_MODE_READY = 530
  89.  
  90. 'NotifyValue Property
  91. Global Const MCI_NOTIFY_SUCCESSFUL = 1
  92. Global Const MCI_NOTIFY_SUPERSEDED = 2
  93. Global Const MCI_ABORTED = 4
  94. Global Const MCI_FAILURE = 8
  95.  
  96. 'RecordMode Porperty
  97. Global Const MCI_RECORD_INSERT = 0
  98. Global Const MCI_RECORD_OVERWRITE = 1
  99.  
  100. 'TimeFormat Property
  101. Global Const MCI_FORMAT_MILLISECONDS = 0
  102. Global Const MCI_FORMAT_HMS = 1
  103. Global Const MCI_FORMAT_FRAMES = 3
  104. Global Const MCI_FORMAT_SMPTE_24 = 4
  105. Global Const MCI_FORMAT_SMPTE_25 = 5
  106. Global Const MCI_FORMAT_SMPTE_30 = 6
  107. Global Const MCI_FORMAT_SMPTE_30DROP = 7
  108. Global Const MCI_FORMAT_BYTES = 8
  109. Global Const MCI_FORMAT_SAMPLES = 9
  110. Global Const MCI_FORMAT_TMSF = 10
  111.  
  112.